home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / improv1a / frmtestb.frm next >
Text File  |  1999-08-27  |  16KB  |  577 lines
  1. VERSION 5.00
  2. Object = "*\AProject1.vbp"
  3. Begin VB.Form frmtestbar 
  4.    BackColor       =   &H00FF0000&
  5.    Caption         =   "Progress Bar ActiveX Control Example"
  6.    ClientHeight    =   4755
  7.    ClientLeft      =   60
  8.    ClientTop       =   300
  9.    ClientWidth     =   9780
  10.    FillColor       =   &H000080FF&
  11.    ForeColor       =   &H80000010&
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4755
  14.    ScaleWidth      =   9780
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CheckBox Check5 
  17.       Caption         =   "Border 3D"
  18.       Height          =   195
  19.       Left            =   8340
  20.       TabIndex        =   29
  21.       Top             =   4500
  22.       Width           =   1095
  23.    End
  24.    Begin VB.CheckBox Check4 
  25.       Caption         =   "Border 3D"
  26.       Height          =   255
  27.       Left            =   6660
  28.       TabIndex        =   28
  29.       Top             =   4440
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CheckBox Check3 
  33.       Caption         =   "Border 3D"
  34.       Height          =   195
  35.       Left            =   480
  36.       TabIndex        =   27
  37.       Top             =   4440
  38.       Width           =   1155
  39.    End
  40.    Begin VB.CheckBox Check2 
  41.       Caption         =   "Border 3D"
  42.       Height          =   195
  43.       Left            =   540
  44.       TabIndex        =   26
  45.       Top             =   2940
  46.       Width           =   1095
  47.    End
  48.    Begin VB.CheckBox Check1 
  49.       Caption         =   "Border 3D"
  50.       Height          =   195
  51.       Left            =   600
  52.       TabIndex        =   25
  53.       Top             =   1260
  54.       Width           =   1275
  55.    End
  56.    Begin VB.CommandButton Command15 
  57.       Caption         =   "Hide Bar"
  58.       Height          =   315
  59.       Left            =   8280
  60.       TabIndex        =   24
  61.       Top             =   4080
  62.       Width           =   975
  63.    End
  64.    Begin VB.CommandButton Command14 
  65.       Caption         =   "Clear"
  66.       Height          =   315
  67.       Left            =   8280
  68.       TabIndex        =   23
  69.       Top             =   3660
  70.       Width           =   975
  71.    End
  72.    Begin VB.CommandButton Command13 
  73.       Caption         =   "Start"
  74.       Height          =   315
  75.       Left            =   8280
  76.       TabIndex        =   22
  77.       Top             =   3240
  78.       Width           =   975
  79.    End
  80.    Begin SBNProgressBar.Progress Pb5 
  81.       Height          =   2655
  82.       Left            =   8460
  83.       TabIndex        =   20
  84.       Top             =   480
  85.       Width           =   675
  86.       _ExtentX        =   1191
  87.       _ExtentY        =   4683
  88.       ForeColor       =   65280
  89.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Style           =   3
  99.       Min             =   125
  100.       Max             =   750
  101.    End
  102.    Begin VB.CommandButton Command12 
  103.       Caption         =   "Hide Bar"
  104.       Height          =   315
  105.       Left            =   6660
  106.       TabIndex        =   18
  107.       Top             =   4080
  108.       Width           =   975
  109.    End
  110.    Begin VB.CommandButton Command11 
  111.       Caption         =   "Clear"
  112.       Height          =   315
  113.       Left            =   6660
  114.       TabIndex        =   17
  115.       Top             =   3660
  116.       Width           =   975
  117.    End
  118.    Begin VB.CommandButton Command10 
  119.       Caption         =   "Start"
  120.       Height          =   315
  121.       Left            =   6660
  122.       TabIndex        =   16
  123.       Top             =   3240
  124.       Width           =   975
  125.    End
  126.    Begin SBNProgressBar.Progress Pb4 
  127.       Height          =   2655
  128.       Left            =   6840
  129.       TabIndex        =   15
  130.       Top             =   480
  131.       Width           =   675
  132.       _ExtentX        =   1191
  133.       _ExtentY        =   4683
  134.       ForeColor       =   16776960
  135.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.          Name            =   "Times New Roman"
  137.          Size            =   9.75
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Style           =   4
  145.       Max             =   500
  146.    End
  147.    Begin SBNProgressBar.Progress Pb1 
  148.       Height          =   375
  149.       Left            =   600
  150.       TabIndex        =   14
  151.       Top             =   300
  152.       Width           =   5715
  153.       _ExtentX        =   10081
  154.       _ExtentY        =   661
  155.       ForeColor       =   255
  156.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  157.          Name            =   "PosterBodoni BT"
  158.          Size            =   8.25
  159.          Charset         =   0
  160.          Weight          =   700
  161.          Underline       =   0   'False
  162.          Italic          =   -1  'True
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Max             =   500
  166.    End
  167.    Begin SBNProgressBar.Progress Pb3 
  168.       Height          =   375
  169.       Left            =   420
  170.       TabIndex        =   13
  171.       Top             =   3480
  172.       Width           =   5775
  173.       _ExtentX        =   10186
  174.       _ExtentY        =   661
  175.       ForeColor       =   16711935
  176.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   8.25
  179.          Charset         =   0
  180.          Weight          =   400
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       Style           =   2
  186.       Max             =   250
  187.    End
  188.    Begin SBNProgressBar.Progress Pb2 
  189.       Height          =   375
  190.       Left            =   480
  191.       TabIndex        =   12
  192.       Top             =   1920
  193.       Width           =   5715
  194.       _ExtentX        =   10081
  195.       _ExtentY        =   661
  196.       ForeColor       =   0
  197.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  198.          Name            =   "Kauflinn"
  199.          Size            =   9.75
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   -1  'True
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Style           =   1
  207.       Caption         =   "Loading"
  208.       Min             =   200
  209.       Max             =   800
  210.    End
  211.    Begin VB.CommandButton Command9 
  212.       Caption         =   "Hide Bar"
  213.       Height          =   315
  214.       Left            =   4440
  215.       TabIndex        =   9
  216.       Top             =   4080
  217.       Width           =   1215
  218.    End
  219.    Begin VB.CommandButton Command8 
  220.       Caption         =   "Hide Bar"
  221.       Height          =   315
  222.       Left            =   4440
  223.       TabIndex        =   8
  224.       Top             =   2520
  225.       Width           =   1215
  226.    End
  227.    Begin VB.CommandButton Command7 
  228.       Caption         =   "Hide Bar"
  229.       Height          =   315
  230.       Left            =   4440
  231.       TabIndex        =   6
  232.       Top             =   780
  233.       Width           =   1215
  234.    End
  235.    Begin VB.CommandButton Command6 
  236.       Caption         =   "Clear"
  237.       Height          =   315
  238.       Left            =   2760
  239.       TabIndex        =   5
  240.       Top             =   4080
  241.       Width           =   1275
  242.    End
  243.    Begin VB.CommandButton Command5 
  244.       Caption         =   "Start"
  245.       Height          =   315
  246.       Left            =   1080
  247.       TabIndex        =   4
  248.       Top             =   4080
  249.       Width           =   1215
  250.    End
  251.    Begin VB.CommandButton Command4 
  252.       Caption         =   "Clear"
  253.       Height          =   315
  254.       Left            =   2760
  255.       TabIndex        =   3
  256.       Top             =   2520
  257.       Width           =   1215
  258.    End
  259.    Begin VB.CommandButton Command3 
  260.       Capti